home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d13 / oct90.arc / TIP589.LSP < prev    next >
Encoding:
Text File  |  1990-11-01  |  1.0 KB  |  43 lines
  1. ;TIP589.LSP   Invisible 3D Face Edges   (c)1990 Paul Sherwood
  2. (defun c:inviface ()
  3.   (setvar "cmdecho" 0)
  4.   (setq ALL nil)
  5.   (initget 1 "Y y N n")
  6.   (setq ALL (getkword
  7.     "\nAll 3D faces on layer to be invisible? (Y/N):"))
  8.   (setq ALL (strcase ALL))
  9.   (if (= ALL "Y")
  10.     (progn  ;select by layer
  11.      (setq INLAY (strcase (getstring "Enter layer name: ")))
  12.      (setq FACES (ssget "X" (list (cons 0 "3DFACE")
  13.        (cons 8 INLAY))))
  14.      (setq INDX (sslength FACES))
  15.     )
  16.     (progn  ;select by picking
  17.       (prompt "Pick 3D faces...")
  18.       (setq FACES (ssget)
  19.             INDX  (sslength FACES)
  20.       )
  21.     )
  22.   )
  23.   (prompt "\nworking")
  24.   (while (> INDX 0)
  25.    (prompt "a")
  26.    (setq ASLIST (ssname FACES (1- INDX))
  27.          ENTITY (entget ASLIST)
  28.    )
  29.    (while (= (cdr (assoc 0 ENTITY)) "ENTITY")
  30.     (progn
  31.       (prompt "b")
  32.       (setq ENTITY (subst (cons 70 15)(assoc 70 ENTITY) ENTITY)
  33.             INDX   (1- INDX)
  34.       )
  35.       (entmod ENTITY)
  36.     )
  37.     (setq INDX (1- INDX))
  38.    )
  39.   )
  40.   (princ)
  41. )
  42.  
  43.